home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch5 / caseassoc < prev    next >
Text File  |  1991-01-08  |  360b  |  21 lines
  1. sub case {
  2.     local(*assoc,$_) = @_;
  3.     for (split(/\n/)) {
  4.     /^(\S+)\s+(.*)/;
  5.     for (eval $1) {
  6.         $assoc{$_} = $2;
  7.     }
  8.     }
  9. }
  10.  
  11. &case(*_V_A_R_I_A_B_L_E,<<'ENDCASE');
  12. _R_A_N_G_E _A_C_T_I_O_N
  13. _R_A_N_G_E _A_C_T_I_O_N
  14. ...
  15. _R_A_N_G_E _A_C_T_I_O_N
  16. ENDCASE
  17.  
  18. ...
  19.  
  20. eval _$_V_A_R_I_A_B_L_E{_S_E_L_E_C_T_O_R};
  21.